function answer = ejer1()

	
	I = [2 4];
	er = 0.001;
	m = 100; %numero maximo de iteraciones permitidas
	
	fprintf('\nMetodo de la biseccion para la funcion sin x\n');
	fprintf('Intervalo \n');
	I
	fprintf('Tolerancia de error: %f \n', er);
		
	[hx, hf] = biseccion(@(x) sin(x),I,er,m);
   	
	fprintf('\nRESULTADOS \n');

	fprintf('Numero de iteraciones: %d \n', length(hx));

   	fprintf('Aproximaciones a la raiz: \n');
	hx
	fprintf('Raiz: %f\n', hx(end));

	
	fprintf('Imagenes de las aproximaciones a la raiz: \n');
	hf
	fprintf('Imagen de la raiz: %f\n',hf(end));
		
endfunction   
